﻿Public Partial Class PaginaTesteTimerEIntegracao
    Inherits BasePage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load



    End Sub

    Private Sub btn1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn1.Click


        Dim generator As New Random
        Dim randomValue As Integer
        randomValue = generator.Next(5000, 20000)
        lbl1.Text = randomValue
        Threading.Thread.Sleep(randomValue)
    End Sub
End Class